home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution8.10 < prev    next >
Text File  |  2007-02-28  |  549b  |  23 lines
  1. 0010 DIM RANGE(6)
  2. 0020 FOR K:=1 TO 6 DO RANGE(K):=0
  3. 0030 FOR GAME:=1 TO 100 DO
  4. 0040 SCORE:=0
  5. 0050 FOR DIE:=1 TO 6 DO SCORE:=SCORE+RND(1,6)
  6. 0060 IF SCORE<=10 THEN
  7. 0070 RANGE(1):=RANGE(1)+1
  8. 0080 ELIF SCORE<=15 THEN
  9. 0090 RANGE(2):=RANGE(2)+1
  10. 0100 ELIF SCORE<=20 THEN
  11. 0110 RANGE(3):=RANGE(3)+1
  12. 0120 ELIF SCORE<=25 THEN
  13. 0130 RANGE(4):=RANGE(4)+1
  14. 0140 ELIF SCORE<=30 THEN
  15. 0150 RANGE(5):=RANGE(5)+1
  16. 0160 ELIF SCORE<=35 THEN
  17. 0170 RANGE(6):=RANGE(6)+1
  18. 0180 ELSE 
  19. 0190 PRINT "SPECIAL PRIZE"
  20. 0200 ENDIF 
  21. 0210 ENDFOR GAME
  22. 0220 FOR K:=1 TO 6 DO PRINT K;RANGE(K)
  23.